home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
User's Choice Windows CD
/
User's Choice Windows CD (CMS Software)(1993).iso
/
misc1
/
amistuff.zip
/
PRTFON.ZIP
/
PRNTFONT.SMM
< prev
next >
Wrap
INI File
|
1991-01-04
|
8KB
|
1,010 lines
[ver]
4
[sty]
[files]
[prn]
PostScript Printer
[lang]
1
[desc]
663014761
20
661714490
[fopts]
0
1
0
0
[lnopts]
2
Body Text
[docopts]
5
2
[tag]
Body Text
2
[fnt]
Helv
240
0
16384
[algn]
225
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
0
0
0
0
0
[nfmt]
272
1
2
.
,
$
[tag]
Body Single
3
[fnt]
Tms Rmn
240
0
49152
[algn]
225
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
0
0
0
0
0
[nfmt]
272
1
2
.
,
$
[tag]
Bullet 1
4
[fnt]
Tms Rmn
240
0
49152
[algn]
1
1
720
360
360
[spc]
33
273
1
144
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*0>
360
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
[tag]
Bullet 2
5
[fnt]
Tms Rmn
240
0
49152
[algn]
1
1
1080
360
360
[spc]
33
273
1
144
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*2>
360
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
[tag]
Indent 1
6
[fnt]
Tms Rmn
240
0
49152
[algn]
193
1
1080
0
0
[spc]
33
273
1
144
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
0
0
0
0
0
[nfmt]
272
1
2
.
,
$
[tag]
Indent 2
7
[fnt]
Tms Rmn
240
0
49152
[algn]
193
1
1440
0
0
[spc]
33
273
1
144
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
0
0
0
0
0
[nfmt]
272
1
2
.
,
$
[tag]
Number List
8
[fnt]
Tms Rmn
240
0
49152
[algn]
1
1
720
360
360
[spc]
33
273
1
144
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*:>.
360
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
[tag]
Bold & Center
9
[fnt]
Tms Rmn
240
0
49153
[algn]
228
1
0
0
0
[spc]
33
273
1
0
144
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
0
0
0
0
0
[nfmt]
272
1
2
.
,
$
[tag]
First Indent
11
[fnt]
Tms Rmn
240
0
49152
[algn]
161
1
0
720
0
[spc]
33
273
1
144
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
0
0
0
0
0
[nfmt]
272
1
2
.
,
$
[tag]
Line Above
12
[fnt]
Tms Rmn
240
0
49152
[algn]
225
1
0
0
0
[spc]
33
273
1
288
0
1
100
[brk]
4
[line]
5
0
1
0
1
2
1
92
10
1
[spec]
0
0
0
1
0
0
0
0
0
[nfmt]
272
1
2
.
,
$
[lay]
Standard
513
[rght]
15840
12240
1
1440
1440
1
1440
1440
2
1
0
1
1
2
1
1440
10800
5
1
720
1
1440
1
2880
1
4320
1
5760
[hrght]
[lyfrm]
1
11200
0
0
12240
1440
1
1
3
1
0
0
0
[frmlay]
1440
12240
1
1440
72
1
360
1440
0
1
0
1
1
0
1
1440
10800
0
[txt]
>
[frght]
[lyfrm]
1
13248
0
14400
12240
15840
1
1
3
1
0
0
0
[frmlay]
15840
12240
1
1440
360
1
14472
1440
0
1
0
1
1
0
1
1440
10800
0
[txt]
>
[elay]
[l1]
0
[pg]
2
46 0 21 0 16384 1 0 65535 65535 Standard 0 0 0 0 0 0 0 0 0 0 65535 0 0 0 0 0 0
78 0 12 1025 16384 0 0 65535 65535 Standard 0 0 0 0 0 0 0 0 0 0 65535 0 0 0 0 0 0
[edoc]
function fontdll()
oncancel endit
onerror endit
ignorekeyboard(1)
dim afont(50)
dim bfont(50)
macpath = getmacpath$()
res = dialogbox ("" "{macpath}prtfnt2.dlg")
if res = 0
goto endit
endif
hourglass(1)
{fdll} = "{macpath}fontdll.exe"
dllfile = findfirst$(fdll 0)
if dllfile <<>> "FONTDLL.EXE" then
message("Can't Find File Fontdll.exe, Exiting Macro")
goto endit
endif
Id = DLLLocate("kernel", "LoadLibrary", "HF")
DLLCall(Id,fdll)
Id = DLLLocate(fdll, "FNT_FontInit", "A")
DLLCall(Id)
Id = DLLLocate(fdll, "FNT_FontFace", "F")
DEFSTR face, i
i = 0
face = "a" 'just a non null value
while (face <<>> "")
face = DLLCall(Id)
i = i + 1
afont(i) = face
wend
Id = DLLLocate(fdll, "FNT_FontClose", "I")
Result = DLLCall(Id)
Id = DLLLocate("kernel", "FreeLibrary", "HH")
DLLCall(Id,fdll)
x = i
k = 1
rst = 0
for i = 1 to x
for j = (i+1) to x
if afont(i) = afont(j)
rst = 1
endif
next
if rst = 0
bfont(k) = afont(i)
k = k + 1
endif
rst=0
next
hourglass(0)
new("~default.sty",0)
Macro = 0
Macro = DialogBox ("" "{macpath}prntfont.dlg")
if Macro = (-1)
message("Can't Find {macpath} PRNTFONT.DLG")
goto endit
endif
laser = getdialogfield$(10)
if laser = 1
modifyselect("Body Text")
modifyspacing(1,0,0,3500,100)
modifyreflow()
endif
for i = 1 to k
fontchange("Courier",0,0,240)
font = bfont(i)
if font = ""
goto skip
endif
type ("{font} - ")
fontchange(font,0,0,240)
type ("The quick brown fox jumps over the lazy dog.<[>enter]")
skip:
next
fileprint(1,0,0,1)
endit:
end function
>
[macsum] 1
fontdll 0 0 118 0
[macse]
14 fontdll
19 00001800
20 00001800
0 32 1
21 1 50
21 52 50
0 295
13
8 103
0 26 "" "{103}prtfnt2.dlg"
13
8 104
6 104
5 0
18 0
11 00000166
10 00001800
0 296 1
7 "{103}fontdll.exe"
8 105
0 280 "{105}" 0
13
8 106
6 106
7 "FONTDLL.EXE"
18 1
11 00000338
0 3 "Can't Find File Fontdll.exe, Exiting Macro"
10 00001800
0 283 "kernel" "LoadLibrary" "HF"
13
8 107
0 284 "{107}" "{105}"
0 283 "{105}" "FNT_FontInit" "A"
13
8 107
0 284 "{107}"
0 283 "{105}" "FNT_FontFace" "F"
13
8 107
5 0
8 109
7 "a"
8 108
6 108
7 ""
18 1
11 00000653
0 284 "{107}"
13
8 108
6 109
5 1
3 0
8 109
6 109
6 108
23 1
10 00000538
0 283 "{105}" "FNT_FontClose" "I"
13
8 107
0 284 "{107}"
13
8 110
0 283 "kernel" "FreeLibrary" "HH"
13
8 107
0 284 "{107}" "{105}"
6 109
8 111
5 1
8 112
5 0
8 113
5 1
8 109
6 111
6 109
18 2
12 00000927
10 00001211
5 1
6 109
3 0
8 109
10 00000844
6 109
5 1
3 0
8 114
6 111
6 114
18 2
12 00001034
10 00001104
5 1
6 114
3 0
8 114
10 00000951
6 109
22 1
6 114
22 1
18 0
11 00001091
5 1
8 113
10 00000997
6 113
5 0
18 0
11 00001186
6 112
6 109
22 1
23 52
6 112
5 1
3 0
8 112
5 0
8 113
10 00000890
0 296 0
2 101 1 "~default.sty" 0
5 0
8 115
0 26 "" "{103}prntfont.dlg"
13
8 115
6 115
5 -1
18 0
11 00001380
0 3 "Can't Find {103} PRNTFONT.DLG"
10 00001800
0 27 10
13
8 116
6 116
5 1
18 0
11 00001485
2 311 1 "Body Text"
2 316 1 1 0 0 3500 100
2 319 1
5 1
8 109
6 112
6 109
18 2
12 00001580
10 00001783
5 1
6 109
3 0
8 109
10 00001497
2 251 1 "Courier" 0 0 240
6 109
22 52
8 117
6 117
7 ""
18 0
11 00001673
10 00001770
0 6 "{117} - "
2 251 1 "{117}" 0 0 240
0 6 "The quick brown fox jumps over the lazy dog.[13]"
10 00001543
2 111 1 1 0 0 1
6 0
15
9
00006085
